さすらいのプログラマ

    .file    "encode.s"
    .set     r0, 0
    .set     SP, 1
    .set     r3, 3
    .set     r4, 4
    .set     r5, 5
    .set     r6, 6

    .globl   .encode[PR]

    .csect   .encode[PR]

    stu      SP, -64(SP)
    st       r3, 88(SP)
    st       r4, 92(SP)
    st       r5, 96(SP)
    st       r6, 100(SP)

    lwz      r4, 0(r3)
    srwi     r4, r4, 8

    mr       r3, r4
    andi.    r3, r3, 0x003f        

    rlwinm   r5, r4, 2, 18, 23
    or       r3, r3, r5

    rlwinm   r5, r4, 4, 10, 15
    or       r3, r3, r5

    rlwinm   r5, r4, 6, 2, 7
    or       r3, r3, r5

    l        r4, 92(SP)
    l        r5, 96(SP)
    l        r6, 100(SP)
    cal      SP,64(SP)

    bcr      20, 0